unit UPaises;

interface

type
  TPaises = class
    private
      FCodigo: Integer;
      FNome: String;
      FSigla: String;
      FBandeira: String;
    protected
    public
      procedure SetCodigo(const Valor: Integer);
      procedure SetNome(const Valor: String);
      procedure SetSigla(const Valor: String);
      procedure SetBandeira(const Valor: String);

      function GetCodigo: Integer;
      function GetNome: String;
      function GetSigla: String;
      function GetBandeira: String;

      constructor Create;
      destructor Destroy;
  end;

implementation

{ TPaises }

constructor TPaises.Create;
begin
  FCodigo := 0;
  FNome := '';
  FSigla := '';
  FBandeira := '';
end;

destructor TPaises.Destroy;
begin

end;

function TPaises.GetBandeira: String;
begin
  Result := FBandeira;
end;

function TPaises.GetCodigo: Integer;
begin
  Result := FCodigo;
end;

function TPaises.GetNome: String;
begin
  Result := FNome;
end;

function TPaises.GetSigla: String;
begin
  Result := FSigla;
end;

procedure TPaises.SetBandeira(const Valor: String);
begin
  FBandeira := Valor;
end;

procedure TPaises.SetCodigo(const Valor: Integer);
begin
  FCodigo := Valor;
end;

procedure TPaises.SetNome(const Valor: String);
begin
  FNome := Valor;
end;

procedure TPaises.SetSigla(const Valor: String);
begin
  FSigla := Valor;
end;

end.
 